use LWP;
use Encode;

my $url = 'http://www.donews.net/';
my $browser = LWP::UserAgent->new;

my $response = $browser->get( $url );
die "Can't get $url -- ", $response->status_line
    unless $response->is_success;

die "Hey, I was expecting HTML, not ", $response->content_type
    unless $response->content_type eq 'text/html';

$content =  $response->content;
$content = decode("utf8",$content);
print encode("gbk",$content);

